home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / dev / e / capus2.lha / capus2 / UserStartup / Sources / PModules.Lha / PModules / CxRoutine.e next >
Encoding:
Text File  |  1995-02-09  |  1.1 KB  |  58 lines
  1. /*"cxFilter(d:LONG)"*/
  2. PROC cxFilter(d:LONG) 
  3.     DEF r=NIL
  4.     r:=CreateCxObj(CX_FILTER,d,NIL)
  5.     RETURN r
  6. ENDPROC
  7. /**/
  8. /*"cxBroker(d:LONG,pad:LONG)"*/
  9. PROC cxBroker(d:LONG,pad:LONG) 
  10.     DEF r=NIL
  11.     r:=CreateCxObj(CX_BROKER,d,pad)
  12.     RETURN r
  13. ENDPROC
  14. /**/
  15. /*"cxTypeFilter(type:LONG)"*/
  16. PROC cxTypeFilter(type:LONG) 
  17.     DEF r=NIL
  18.     r:=CreateCxObj(CX_TYPEFILTER,type,0)
  19.     RETURN r
  20. ENDPROC
  21. /**/
  22. /*"cxSender(port:LONG,id:LONG)"*/
  23. PROC cxSender(port:LONG,id:LONG) 
  24.     DEF r=NIL
  25.     r:=CreateCxObj(CX_SEND,port,id)
  26.     RETURN r
  27. ENDPROC
  28. /**/
  29. /*"cxSignal(task:LONG,sig:LONG)"*/
  30. PROC cxSignal(task:LONG,sig:LONG) 
  31.     DEF r=NIL
  32.     r:=CreateCxObj(CX_SIGNAL,task,sig)
  33.     RETURN r
  34. ENDPROC
  35. /**/
  36. /*"cxTranslate(ie:LONG)"*/
  37. PROC cxTranslate(ie:LONG) 
  38.     DEF r=NIL
  39.     r:=CreateCxObj(CX_TRANSLATE,ie,NIL)
  40.     RETURN r
  41. ENDPROC
  42. /**/
  43. /*"cxDebug(id:LONG)"*/
  44. PROC cxDebug(id:LONG) 
  45.     DEF r=NIL
  46.     r:=CreateCxObj(CX_DEBUG,id,0)
  47.     RETURN r
  48. ENDPROC
  49. /**/
  50. /*"cxAction(action:LONG,id:LONG)"*/
  51. PROC cxCustom(action:LONG,id:LONG) 
  52.     DEF r=NIL
  53.     r:=CreateCxObj(CX_CUSTOM,action,id)
  54.     RETURN r
  55. ENDPROC
  56. /**/
  57.  
  58.